l.33="tr "d2c(34)" "c2"m "tf10"= "c4"You're Muffling this Port."d2c(34)";if conf=1 then tr "d2c(34)" "c2"M "tf10"= "c8"They're trying to Muffle You."d2c(34)
l.34="tr "d2c(34)" "c2"h "tf10"= "c4"You're Hiding from this Port."d2c(34)";if conf=1 then tr "d2c(34)" "c2"H "tf10"= "c8"They're trying to Hide from You."d2c(34)
l.35="tr "d2c(34)" "c2"+ "tf10"= "c7"User has Conference Control."d2c(34)";exit"
l.42="MINUTES:;arg m;t=right(m,1);m=m%10;hrs=m%60;mins=m-(hrs*60);if hrs=0 then zz=mins'.'t' "c3"Minutes';else zz=hrs'.'mins%6' "c4"Hours';return"
call open(f1,'pfiles:Who/Short','w');do i=1 to tot;call writeln(f1,l.i);end i;call close(f1);return
NORMAL: /* v2.51 complete */
call open(f1,'pfiles:who/Normal','r');do i=1 until eof(f1);l.i=readln(f1);end i;tot=i-1;call close(f1)
l.44="if conf=1 then a=a"d2c(34)||c2"M "tf10"= "c8"They're trying to Muffle You."d2c(34)";tr a;a="d2c(34)" "c2"h "tf10"= "c8"You're Hiding from this Port. "d2c(34)
l.45="if conf=1 then a=a"d2c(34)||c2"H "tf10"= "c4"They're trying to Hide from You."d2c(34)";tr a;tr "d2c(34)" "c2"+ "tf10"= "c7"User has Conference Control."d2c(34)";exit"
l.52="MINUTES:;arg m;t=right(m,1);m=m%10;hrs=m%60;mins=m-(hrs*60);if hrs=0 then zz=mins'.'t' "c8"Minutes';else zz=hrs'.'mins%6' "c4"Hours';return"
call open(f1,'pfiles:Who/Normal','w');do i=1 to tot;call writeln(f1,l.i);end i;call close(f1);return
LONG: /* v2.51 complete */
call open(f1,'pfiles:who/Long','r');do i=1 until eof(f1);l.i=readln(f1);end i;tot=i-1;call close(f1)
l.24="v1="s3.1";v2="s3.2";v3="s3.3";v4="s3.4";v5="s3.5";v6="s3.6";loS="s3.7";hiSk="s3.8";v7="s3.9";v8="s3.10";v9="s3.11";if v7=1&index('CIE?BGVHP',arg)=0 then tr 'f1'"
l.29="if arg='I'&conf=1 then do;se 'n1"c3"ReLoading "c2"Idle "c1"Port "c7"Banners"c6"...';call setclip('IdleWhoB0');tr '#0pfiles:who/Loader}"c4"Done"c6"!';exit;end"
l.30="if arg='Q' then quick=1;if arg='P' then do;a=getclip('IdleWhoB'myport);tr 'n1"c6"Port "c2"'myport'"c7": "c8"'a'n1';exit;end"
l.31="if arg='E'&conf=1 then do;loadeditor 'pfiles:who/IdlePorts';tr 'n1"c3"Edit "c2||d2c(34)||c8"IdlePorts"c2||d2c(34)" "c6"file...';calleditor 102;gu 1109865"
l.32=" st=result;if st=1 then do;se '"c1"Saving "c2||d2c(34)||c8"IdlePorts"c2||d2c(34)" "c6"file...';saveeditor 'pfiles:who/IdlePorts';tr '"c4"Done"c6"!';end"
l.33=" else if st=0 then do;se '"c7"Delete "c2||d2c(34)||c8"IdlePorts"c2||d2c(34)" "c6"file? "c16"["c15"Yes"c16"]"c6": "c15"'"
l.34=" gc;a=result;if a='N' then tr 'No.';else do;se 'Yes"c6"! "c7"Deleting"c6"...'"
l.62=" if totpit>1&ii~=totpit&quick=0 then tr '"tb9||tf9"'copies('"t9"',79)'"tbt9"'"
l.63=" end ii;se '"tb10||tf10"'copies('"t10"',79)'"tbt10"';call MGC;if help=3|quick=1 then signal MENU"
l.64=" if help=2 then do;se 'n1"tb11||tf11||t11||tbt11||c1"="c8"Last Call"c1", "c9"*"c1"="c9"History"c1", '"
l.65=" se '"tb12||tf12||t12||tbt12||c1"="c10"Time Today"c1", "c2"m"c1"="c2"Muffled"c1", ';tr '"c2"h"c1"="c2"Hidden"c1", "c2"+"c1"="c2"Conf. Cont.';signal MENU;end"
l.66=" tr "d2c(34)"n1 "c2"m "tf10"= "c4"You're Muffling this Port. "c2"h "tf10"= "c3"You're Hiding from this Port."d2c(34)";call MGC"
l.67=" if conf=1 then tr "d2c(34)" "c2"M "tf10"= "c8"They're trying to Muffle You. "c2"H "tf10"= "c8"They're trying to Hide from You."d2c(34)
l.68=" tr "d2c(34)||tb11||tf11||t11||tbt11||tf10" = "c8"User's Last Call Date. "tb12||tf12||t12||tbt12||tf10" = "c4"Time Used Today by this User."d2c(34)
l.69=" tr "d2c(34)" "c9"* "tf10"= "c4"This User has a HISTORY File. "c2"+ "tf10"= "c3"User has Conference Control."d2c(34)";call MGC"
l.70="MENU:;if quick=1 then exit;se 'n1"c17"Long "c2"Who "c16"["c15"B"c16"]"c15"anner"c17", "c16"["c15"G"c16"]"c15"limpse"c17", '"
l.71=" se '"c16"["c15"V"c16"]"c15"iew "c18"History"c17", or "c16"["c20"QUIT"c16"]"c17": "c15"';gc;a=index('BGVHQ',result)"
l.72=" if a=0|a=5 then do;tr '"c20"Quit';exit;end;if a=1 then do;tr 'Banner'"
l.74=" if v3=0&conf~=1 then do;tr 'n1"c17"You can "c7"NOT "c1"create "c3"Multiple "c20"Who Banners"c17"! Use "c1"EP;14 "c17"instead!';signal MENU;end"
l.77="E0:;tr 'f1n1"c23"r1 Your Short Who Banners r0n2"c24" Current Bannern1"c25"~~~~~~~~~~~~~~~~n1"c26"Banner "c27"0"c28": @8"c3"'b.0"
l.78=" tr 'n1"c24" Banners On Filen1"c25"~~~~~~~~~~~~~~~~~';do i=1 to 9;tr '"c26"Banner "c27"'i'"c28": @8"c3"'b.i;end i"
l.79=" se 'n1"c17"Edit "c16"["c15"0"c16"] "c17"thru "c16"["c15"9"c16"]"c17", "c16"["c20"Q"c16"]"c20"uit"c17", or "c16"["c15"P"c16"]"c15"ick "c17"current? "c16"["c15"Pick"c16"]"c17": "c15"'"
l.81=" if a=12 then do;tr '"c20"Quit';signal MENU;end;if a<11 then do;a=a-1;tr a"
l.83=" if index(ban,"d2c(34)""d2c(34)") then do;tr "d2c(34)||c7"Control-Q characters are PROHIBITED in Banners!"d2c(34)";b.a=ban;signal E1;end"
l.84=" if sysop=0|(sysop=1&v9=0) then do;ban2=ban;call STRIPSMCI;if ban2~=ban then tr "d2c(34)||c7"SysOp Only MCI's have been REMOVED! "c16"<"tf10"Key"c16">g1"d2c(34)";end"
l.85=" if mci1=0|mci2=0 then do;ban2=ban;call STRIPMCI2;if ban2~=ban then tr "d2c(34)||c7"Level 2 MCI's have been REMOVED! "c16"<"tf10"Key"c16">g1"d2c(34)";end"
l.86=" if mci1+mci2=0 then do;ban2=ban;call STRIPMCI;if ban2~=ban then tr "d2c(34)||c7"ALL MCI Occurances have been REMOVED! "c16"<"tf10"Key"c16">g1"d2c(34)";end"
l.87=" se 'n1"c17"Is "c2||d2c(34)"@8"c3"'ban'"c2||d2c(34)" "c17"Correct? "c16"["c15"Yes"c16"]"c17": "c15"';gc;c=result;if c='N' then do;tr 'No.';b.a=ban;signal E1;end"
l.89=" if a=11 then do;se 'Pickn2"c17"Use which "c20"Banner "c17"as "c1"Current"c17"? "c16"["c3"<"c15"1"c3">"c16"-"c15"9"c16"]"c17": "c15"'"
l.94="AG:;tr 'n1"c17"You''ll have "c2"3 "c17"lines to "c1"create "c17"and/or "c20"edit "c17"your "c2||d2c(34)||c15"Glimpse"c2||d2c(34)||c17" file...'"
l.96=" se '"c7"Delete "c17"your "c2||d2c(34)||c15"Glimpse"c2||d2c(34)||c6" file now? "c16"["c15"Yes"c16"]"c17": "c15"';gc;a=result"
l.99="AV:;se 'n1"c16"["c15"E"c16"]"c15"dit"c17", "c16"["c15"V"c16"]"c15"iew "c17"by "c19"Port"c17", or "c16"["c15"S"c16"]"c15"pecific "c18"Histories"c17"? "c16"["c20"QUIT"c16"]"c17": "c15"'"
l.100=" gc;a=index('EVPSHQ',result);if a=0|a=6 then do;tr '"c20"Quit';signal MENU;end"
l.101=" if a=1 then do;tr 'Edit';tr 'n1"c17"You''ll have "c2"20 "c17"lines to "c1"create "c17"and/or "c20"edit "c17"your "c2||d2c(34)||c15"History"c2||d2c(34)||c17" file...'"
l.103=" se '"c7"Delete "c17"your "c2||d2c(34)||c15"History"c2||d2c(34)||c17" file now? "c16"["c15"Yes"c16"]"c17": "c15"';gc;a=result"
l.106="VPM:;se 'n1 "c15"View "c17"the "c1"History File "c17"for the "c20"User "c17"on which "c2"Port"c17"? "c16"'right('["c15"'myport'"c16"]',10)'"c17":"c15"i192 2}'"
l.108=" if a='(offline)' then do;tr 'n1"c17"That "c2"Port "c17"is "c7"NOT "c17"Loaded!';signal MENU;end"
l.109=" if a=l107 then do;tr 'n1"c7"No One "c17"is "c15"USING "c17"that "c2"Port "c17"now!';signal MENU;end;end"
l.111="VPA:;tr 'f1"c21"r1'center('History File For "d2c(34)"'han'"d2c(34)" on Port 'p'...',78)'r0"c22"'"
l.113=" se '"tf10"'copies('"t10"',78)' n1"c16"["c15"V"c16"]"c15"iew "c2"Another"c17", "c16"["c15"R"c16"]"c15"eView "c17"this "c1"History"c17", "c16"["c15"W"c16"]"c15"ho "c15"List"c17", or "c16"["c20"QUIT"c16"]"c17": "c15"'"
l.114=" gc;a=index('VARHWLQ',result);if a=0|a=7 then do;tr '"c20"Quit';exit;end;if a=1|a=2 then do;tr 'View Another';signal VPM;end"
l.116="VSM:;se 'n1"c17"Enter "c1"ID#"c17", "c3"Handle"c17", or "c2"Real Name "c17"to "c15"View"c17": "c16"["c15"1"c16"]"c17": "c15"i144 25}'"
l.118=" tr 'n1"c7"This is an Invalid Account! "c17"Check your typing.';signal MENU;end;loadscratch st;savescratch (-st)"
l.120="VSA:;tr 'f1"c21"r1'center('History File For "d2c(34)"'han'"d2c(34)" from 'city'...',78)'r0"c22"'"
l.122=" se '"tf10"'copies('"t10"',78)' n1"c16"["c15"V"c16"]"c15"iew "c2"Another"c17", "c16"["c15"R"c16"]"c15"eView "c17"this "c1"History"c17", "c16"["c15"W"c16"]"c15"ho "c3"List"c17", or "c16"["c20"QUIT"c16"]"c17": "c15"'"
l.123=" gc;a=index('VARHWLQ',result);if a=0|a=7 then do;tr '"c20"Quit';exit;end;if a=1|a=2 then do;tr 'View Another';signal VSM;end"
l.131="MINUTES:;arg m;t=right(m,1);m=m%10;hrs=m%60;mins=m-(hrs*60);if hrs=0 then zz=mins'.'t' "c8"Minutes';else zz=hrs'.'mins%6' "c4"Hours';return"
call open(f1,'pfiles:Who/Long','w');do i=1 to tot;call writeln(f1,l.i);end i;call close(f1);return
SETUP:;call open(f1,'pfiles:who/Config.Data','r');line=readln(f1);do i=1 to 3